home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
12-09.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
1KB
|
58 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
DIM Solid(32), Hollow(32)
Rem Solid values
DATA &hE03F,&hE03F,&hE03F,&h0007,&h0007,&h0007,&h0007,&h0007
DATA &h0007,&h0007,&hE03F,&hE03F,&hE03F,&hFFFF,&hFFFF,&hFFFF
DATA &h0000,&h0F80,&h0F80,&h0F80,&h7FF0,&h7FF0,&h7FF0,&h7FF0
DATA &h7FF0,&h0F80,&h0F80,&h0F80,&h0000,&h0000,&h0000,&h0000
REM Hollow values
DATA &hE03F,&hEFBF,&hEFBF,&h0F87,&h7FF7,&h7FF7,&h7FF7,&h7FF7
DATA &h7FF7,&h0F87,&hEFBF,&hEFBF,&hE03F,&hFFFF,&hFFFF,&hFFFF
DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0200,&h0000
DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000
OldMode = FGgetmode
FGsetmode(FGautomode)
IF FGmouseini < 0 THEN
FGsetmode OldMode
FGreset
STOP
END IF
FOR I = 0 TO 31
Read Solid(I)
NEXT
FOR I = 0 TO 31
Read Hollow(I)
NEXT
FGsetcolor 15
FGrect 0, FGgetmaxx, 0, FGgetmaxy
FGsetcolor 12
Column = FGxalpha(FGgetmaxx/2) - 6
LastRow = FGyalpha(FGgetmaxy) + 1
FOR Row = 0 TO LastRow
FGlocate Row, Column
FGtext "example 12-9", 12
NEXT
FGmousevis 1
FGwaitkey
FGmouseptr Solid(), 6, 6
FGwaitkey
FGmouseptr Hollow(), 6, 6
FGwaitkey
FGsetmode OldMode
FGreset
END